1 REM" THE PUBLICATIONLOADER - COMPLETLY LAME
2 [143]"----------------------------------------
3 REM""(null)
10 GA=PEEK(186):SYS57812("SPRITES*"),8,1:POKE780,0:SYS65493:PRINT"[147]"CHR$(14)
11 POKE53281,15:POKE53280,6:POKE646,0:POKE2040,228:POKE2041,229:POKE53265,11
12 POKE2042,230:POKE2043,231:POKE53276,255:POKE53248,80:POKE53249,55
13 POKE53287,12:POKE53288,12:POKE53289,12:POKE53290,12:POKE53285,1:POKE53286,0
14 POKE53250,128:POKE53251,55:POKE53252,176:POKE53253,55:POKE53254,224
15 POKE53255,55:POKE53269,255:POKE53277,255
16 PRINT""TAB(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
17 PRINTTAB(8)"DONE BY [129][200][149]I[150]G[151]H-[159][212][156]ECH IN '96"
18 PRINTTAB(6)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":POKE53265,27
19 A$="[217]O ! [196]IZ IS THE [200]IGH-[212]ECH-[205]EMBERSTATUS":PY=6:GOSUB2000
20 PRINT" [144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":GOSUB3000
21 PRINT" [208]HOENIX"TAB(18)"[204]EAD,[195]ODE,[211]WAP":GOSUB3000
22 PRINT" [202][193][203] [212] [210][201][208]"TAB(18)"[195]O[204]EAD,[195]OVER,[199][198][216],[211]WAP":GOSUB3000
23 PRINT" [199]HOST"TAB(18)"[199]RAFIX":GOSUB3000
24 PRINT" [210][193]!"TAB(18)"[199]RAFIX":GOSUB3000
25 PRINT" [199]UNHED BATTALION [195]ODE,[205]USIX":GOSUB3000
26 PRINT" [212][211][214]"TAB(18)"[195]ODE":GOSUB3000
27 PRINT" [210]OBIN [200]OOD"TAB(18)"[205]AG-[197]DITOR":GOSUB3000
28 PRINT" [218]EITGEIST"TAB(18)"[195]ODE,[205]AG-[197]DITOR"
30 A$=" [215]ATCH OUT FOR ALL FUCKIN' LAME STUFF":PY=19:GOSUB2000
31 A$="  OF [200]IGH-[212]ECH,EXSPECCIALLY THE NEXT":PY=20:GOSUB2000:GOSUB3000
32 A$="        ISSUE OF [208][159][213][156][194][204][201][158][195][129][193][150][212][151][201][152][207][153][206] [144]!":PY=21:GOSUB2000
33 A$="  [206]OW PRESS DA LONG ONE DOWN UNDER !":PY=23:GOSUB2000
34 GETA$:IFA$<>CHR$(32)THEN34
35 PRINT"[147]":POKE53281,0:POKE53280,0:POKE53269,0
36 PRINT"     [215]AIT 10 YEARS WHILE LOADING..."
1001 PRINT"[144]POKE44,50:POKE15360,0:END":FORG=1TO300:NEXT:POKE53269,0
1002 PRINT"LOAD"CHR$(34)"PUBLICATION/MAIN"CHR$(34)","+STR$(GA)+",1:"
1003 PRINT"RUN[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
1005 POKE198,0:FORI=0TO9:POKE631+I,13:NEXTI:POKE198,10
1006 STOP
2000 F(1)=0:F(2)=6:F(3)=2:F(4)=5:F(5)=7:F(6)=1
2001 FORG=1TO6:POKE211,1:POKE214,PY:SYS58732:POKE646,F(G):PRINTA$:FORQ=1TO75
2002 NEXTQ,G
2003 FORG=6TO1STEP-1:POKE211,1:POKE214,PY:SYS58732:POKE646,F(G):PRINTA$
2004 FORQ=1TO75:NEXTQ,G:RETURN
3000 FORG=1TO150:NEXTG:RETURN